10 POKE53281,0:POKE53280,0
20 DV=PEEK(186):IFDV<8THENDV=8
1000 PRINT"[147]";CHR$(142)
1001 PRINT"[146]        [129][176]``````````````````````[174]"
1002 PRINT"        b   [158][169] [146][129][165]           [158][169] [146][129][165]  b"
1003 PRINT"        b  [158][169][146][169] [146][129][165]          [158][169][146][169] [146][129][165]  b"
1004 PRINT"        b [158][169][146][169]  [146][129][165]         [158][169][146][169]  [146][129][165]  b"
1005 PRINT"        b [158]      [146][149][165] u     [158]      [146][149][165][129]b"
1006 PRINT"        b [150][183][183][183][158] [146][129]o[150][183]  biiu  [150][183][183][183][158] [146][129]o[150][183] [129]b"
1007 PRINT"        b    [158] [146][129][165]   [173]kj[179]     [158] [146][129][165]  b"
1008 PRINT"        b    [150][183]      jk     [150][183]   [129]b"
1009 PRINT"        b                      b"
1010 PRINT"        b     NOW LOADING...   [129]b"
1011 PRINT"        [173]``````````````````````[189]"
1100 PRINT""
2000 SYS57812"4X4",DV:POKE780,0:POKE781,0:POKE782,14:SYS65493
2100 SYS3584
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
59999 END
60000 DV=PEEK(186):OPEN15,DV,15,"S0:B.4 BY 4":CLOSE15:SAVE"0:B.4 BY 4",DV:END